perm filename PUPGH.C[11,HE] blob sn#688202 filedate 1982-12-06 generic text, type T, neo UTF8
/* LINTLIBRARY */
/*
 * pupgethost.c
 *
 * Returns the host number of the local machine.
 * The choice of which network, for multiply connected machines,
 * is made by examining the fid presented.
 *
 * Jeffrey Mogul & Dan Kolkowitz	12-January-1981
 *
 */

#include <puplib.h>

Host pupgethost(pchan)
struct PupChan *pchan;
{	/* */

	/* here we would case on pchan->transport if there
	 * were any choice besides ethernet */
	return(engethost(pchan->ofid));

}